home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / cambiosphere><.xdve < prev    next >
Text File  |  1995-06-21  |  3KB  |  125 lines
  1. /* La prima pagina si avvolge sulla sfera e si allontana
  2.    la seconda si avvicina e si svolge - 99 FRAMES SU UN FONDO A SCELTA */
  3.  
  4. ADDRESS "ADPro"
  5. OPTIONS RESULTS
  6.  
  7. TRUE  = 1
  8. FALSE = 0
  9. TmpIma = 'T:immagine'
  10. TmpIma2 = 'T:immagine2'
  11. TmpFond = 'T:fondale'
  12. TmpProv = 'T:provvisorio'
  13. D = 0
  14. C = 0
  15. S = 0
  16. FL = 100
  17. NUMEROFRAME = 0
  18.  
  19. OKAY2 '"Hai messo a RESET TO DEFAULT perspective e sphere?"'
  20. IF RC = 0 THEN EXIT
  21.  
  22. GETFILES '"Seleziona la PRIMA immagine"'
  23.  IF RC ~= 0 THEN EXIT
  24.   PRIMA = ADPRO_RESULT
  25.    IF PRIMA = "" THEN EXIT
  26.     LOADER "UNIVERSAL" PRIMA
  27.     OPERATOR "DYNAMIC_RANGE" 1
  28. SAVER "IFF" TmpIma "RAW"
  29.     XSIZE
  30.      BASE = ADPRO_RESULT
  31.     YSIZE
  32.      ALTZ = ADPRO_RESULT 
  33.      
  34.      GETFILES '"Seleziona la SECONDA immagine"'
  35.  IF RC ~= 0 THEN EXIT
  36.   SECONDA = ADPRO_RESULT
  37.    IF SECONDA = "" THEN EXIT
  38.     XSIZE
  39.      BASE2 = ADPRO_RESULT
  40.     YSIZE
  41.      ALTZ2 = ADPRO_RESULT
  42.      
  43.      GETFILES '"Seleziona il FONDALE"'
  44.  IF RC ~= 0 THEN EXIT
  45.   FONDALE = ADPRO_RESULT
  46.    IF FONDALE = "" THEN EXIT
  47.      LOADER "UNIVERSAL" FONDALE 
  48.     XSIZE
  49.      BASE3 = ADPRO_RESULT
  50.     YSIZE
  51.      ALTZ3 = ADPRO_RESULT
  52.      IF (BASE3 > BASE) | (ALTZ3 > ALTZ) THEN DO
  53.                           ABS_SCALE (BASE) (ALTZ)
  54.                           END
  55. IF (BASE3 < BASE) | (ALTZ3 < ALTZ) THEN DO
  56.                           ABS_SCALE (BASE) (ALTZ)
  57.                           END
  58.           SAVER "IFF" TmpFond "RAW"
  59.      
  60. GETfile '"Path e nomebase 99 frames elaborati"'
  61. IF RC ~= 0 THEN EXIT
  62. OUTFILE = ADPRO_RESULT
  63. if OUTFILE = "" then exit
  64.   
  65.  DO i=1 to 50   
  66. LOADER "IFF" TmpIma
  67. OPERATOR "Sphere" DISTORTION (D) EFFECT 100 CIRCLE_EFFECT (C) SQUARE_EFFECT (S) SOFT_EDGE
  68. OPERATOR "PERSPECTIVE" CAMERA_POSITION 0 0 (BASE) FOCAL_LENGTH (FL) THETA 0 GAMMA 0 PHI 0 SOFT_EDGE
  69.     NUMEROFRAME = (NUMEROFRAME + 1)
  70. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  71.   D = (D + 1)
  72.   C = (C + 2)
  73.   S = (S + 2)
  74.   FL = (FL - 2)
  75. SFORMAT "IFF"
  76.   SAVE TmpProv "RAW"
  77.   LOADER "IFF" TmpFond
  78.   LOADER "IFF" TmpProv COMPOFFSET 0 0 100 0 0 0
  79.    SAVE (OUTFILE)||'.'||(NUMERO) "RAW"
  80.     END    
  81. ADDRESS COMMAND "Delete >NIL:" TmpIma
  82.  
  83. D2 = 50
  84. C2 = 100
  85. S2 = 100
  86. FL2 = 1
  87. NUMEROFRAME = 50
  88.  
  89.      LOADER "UNIVERSAL" SECONDA
  90.     XSIZE
  91.      BASE2 = ADPRO_RESULT
  92.     YSIZE
  93.      ALTZ2 = ADPRO_RESULT
  94. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  95.                           ABS_SCALE (BASE) (ALTZ)
  96.                           END
  97. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  98.                           ABS_SCALE (BASE) (ALTZ)
  99.                           END
  100.           OPERATOR "DYNAMIC_RANGE" 1
  101.           SAVER "IFF" TmpIma2 "RAW"
  102.     
  103.  DO i=1 to 49
  104. LOADER "IFF" TmpIma2
  105. OPERATOR "SPHERE" DISTORTION (D2) EFFECT 100 CIRCLE_EFFECT (C2) SQUARE_EFFECT (S2) SOFT_EDGE
  106. OPERATOR "PERSPECTIVE" CAMERA_POSITION 0 0 (BASE) FOCAL_LENGTH (FL2) THETA 0 GAMMA 0 PHI 0 SOFT_EDGE
  107.   NUMEROFRAME = (NUMEROFRAME + 1)
  108. NUMERO2 = RIGHT(NUMEROFRAME,3,'0')
  109.   D2 = (D2 - 1)
  110.   C2 = (C2 - 2)
  111.   S2 = (S2 - 2)
  112.   FL2 = (FL2 + 2)
  113. SFORMAT "IFF"
  114.   SAVE TmpProv "RAW"
  115.   LOADER "IFF" TmpFond
  116.   LOADER "IFF" TmpProv COMPOFFSET 0 0 100 0 0 0
  117.   SAVE (OUTFILE)||'.'||(NUMERO2) "RAW"
  118.   SAY "Salvo il frame Num." NUMERO
  119.     END    
  120. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  121. ADDRESS COMMAND "Delete >NIL:" TmpFond
  122. ADDRESS COMMAND "Delete >NIL:" TmpProv
  123.  
  124. EXIT
  125.